Лабораторная работа.

[Nikita93]

Всем привет.
Народ,очень прошу помогите!
я в паскале вообще не соображаю...а лабы в инсте сдавать надо-могут до экзамена не допустить...напишите программу как в паскале записать?оч прошу!
1)
Исходные данные:
m=a*a-b при а < b
ь=b*b-a при а=b
m=0 при а>b
2)
y=5 при m>=0 и a>2b
y=15 при m<=0 и a<=2b
иначе у=0
3)
r=m*y/2
рез-ат:m,y,z/


очень прошу, помогите,кому не сложно)

[Anton_kl]

Первая задача

Var
a,b,m:integer;
Begin
WriteLn('Введите числа через пробел');
ReadLn(a,b);
if a<b then m:=sqr(a)-b;
if a=b then m:=sqr(b)-a;
if a>b then m:=0;
WriteLn(m);
end.

[Mad_Cat]

Первая задача

не хочу тя растраивать но это 1 задача)

[Nikita93]

Большое пребольшое спасибо!!!!!!!!!!
но,все-таки ,простите за тупость,но какие числа вводить через пробел??

[Poma][a]

Сообщение от Nikita93

Большое пребольшое спасибо!!!!!!!!!!
но,все-таки ,простите за тупость,но какие числа вводить через пробел??

мда... числа a и b
только у автора ошибка, что ввести через пробел надо Read а не ReadLn