program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a,b,c:integer;
begin
a:=100;
b:=30;
a:=a-b*3;
if a>b then c:=a-b
else c:=b-a;
write (c);
end.
2) 20
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a,b,c:integer;
begin
a:=100;
b:=30;
a:=a-b*3;
if a>b then c:=a-b
else c:=b-a;
write (c);
end.
2) 20