Здравствуйте! Можете, пожалуйста, написать текст данной задачи на языке Pascal, заранее благодарен!
Вот если что начало:
Type Anketa = RecordNomer:string[10];Summa:string[6];Vid:string[2];end;Var G:Array[1..3] of Anketa;I:byte;Otvet:string[6];Beginfor i:=1 to 3 dobeginWrite('Введите номер счёта: ');Readln(G[i].Nomer);Write('Введите сумму: ');Readln(G[i].summa);Write('Введите вид операции(снятие/пополнение): ');Readln(G[i].vid);end;Writeln('Информация о состоянии счёта');Write('Введите номер счёта, состояние которого надо посмотреть: ');readln(otvet); For i:=1 to 3 do

Type schet = RecordNomer:integer;Summa:real;Vid:string[10];Fio:string[40];Summa1:real;end;Var G:Array[1..10] of schet;I:byte;Beginfor i:=1 to 10 dobeginWrite('Введите номер счёта: ');Readln(G[i].Nomer);Write('ФИО клиента: ');Readln(G[i].Fio);Write('Сумма счета: ');Readln(G[i].Summa);Write('Введите вид операции(снятие/пополнение): ');Readln(G[i].vid);Write('Введите сумму снятия/пополнения): ');Readln(G[i].Summa1);Writeln(#10,'Информация о состоянии счёта');if G[i].Vid='пополнение'then G[i].Summa:=G[i].Summa+G[i].Summa1else G[i].Summa:=G[i].Summa-G[i].Summa1;writeln(#10,'ФИО: ', G[i].Fio:5,#10,'№ счета: ', G[i].Nomer,#10,'Сумма счета: ', G[i].Summa,#10);end;end.