Программирование элементов разветвляющейся структуры

ПЕНЗЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

Кафедра МО и ПЭВМ

Лабораторная работа № 5

Тема: «Программирование элементов разветвляющейся структуры»

Выполнил: студент гр. 02ТП1

Пахомов В. Е.

Проверил: Ракова А. Н.

2003

Задание А.

Если первое из трех веденных с клавиатуры чисел отрицательное, то вычислить среднеарифметическое всех этих чисел. В противном случае рассчитать произведение двух первых.

Программа:

uses crt;

var

a,b,c,e:real;

begin

clrscr;

writeln('Введите первое число ');

readln(a);

writeln('Введите второе число ');

readln(b);

writeln('Введите третье число ');

readln(c);

if a