Вводятся два числа найти разность этих чисел. ответ можно записать в строчку

Cls input a input b c=a-b print c end

Program zadacha_1; var a,b,rez: real; //я не случайно объявил типа real, поскольку в не сказно, какие числа вводятся: целые, или дробные begin writeln('введите два числа'); readln(a,b); rez: =a-b; writeln('разность: ',rez); end.

вот проверила, так работает. нормально?

 

program maxmin; var    a, b, c: integer;     max, min: integer; beginwriteln('введите три числа.'); read(a,b,c); {вводи числа через пробел}max: =a; if(b> max) then max: =b; if(c> max) then max: =c; min: =a; if(b< min) then min: =b; if(c< min) then min: =c; writeln('разность наибольшего и наименьшего чисел равна ',max-min); end.

program a1;

  uses crt;

var a,b,c,k: longint;

begin

  clrscr;

  write('введите первое число: '); readln(a);  

  write('введите второе число: '); readln(b);  

  write('введите третье число: '); readln(c);    

if a< b then k: =a else k: =b;

if b< k then k: =b;

writeln(k);

readln

end. 

 

если paskal abc, то выделенное можно не писать